data-raw/Alcoholic beverage assumptions/alc_abv.R

# % alcohol by volume

abv_data <- data.table(
  beverage = c("nbeerabv", "sbeerabv", "spiritsabv", "sherryabv", "wineabv", "popsabv"),
  abv = c(4.4, 8.4, 38, 17, 12.5, 4.5)
)

usethis::use_data(abv_data)
dosgillespie/hseclean documentation built on May 2, 2020, 1:15 a.m.